home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / f / final_writer / finalwriter4ukenglish1.dms / in.adf / FWMacros.lha / GfxDuplicate < prev    next >
Encoding:
Text File  |  1993-10-25  |  818 b   |  26 lines
  1. /* ====================================== */
  2. /* Final Writer Arexx Macro - OBJECT COPY */
  3. /* This macro will duplicate any selected */
  4. /* graphic objects.                       */
  5. /* by Terry Wright                        */
  6. /* $VER: GfxDuplicate 3.0 (21.7.93)       */
  7. /* ====================================== */
  8. Options Results
  9.  
  10. /* ------------------------------------------------ */
  11. /* First find out if there are any objects selected */
  12. /* ------------------------------------------------ */
  13. CurrentObject
  14. objectId = Result
  15. IF (objectId = 0) THEN
  16.    EXIT
  17.  
  18. /* ---------------------------------------------- */
  19. /* Make sure the grapich tool is the current tool */
  20. /* before we do the Copy and Paste commands.      */
  21. /* ---------------------------------------------- */
  22. GraphicTool
  23. Copy
  24. IF ( RC = 0 ) THEN
  25.    Paste
  26.